home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / CADVIS.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  674 b   |  37 lines
  1. # Quarterdeck CADVision Development Corp. PPP script
  2.  
  3. STRING username
  4. STRING password
  5. STRING IPaddress
  6.  
  7. TRACE OFF
  8.  
  9. SetTimeout      60                      # reset maximum script timeout
  10.  
  11. # Get username from access method
  12. CfgGetValue "Username" username
  13. IF result = 0 THEN
  14.     ABORT "Can't load Username from qdeck.ini"
  15. ENDIF
  16.  
  17. # get password from access method
  18. CfgGetValue "Password" password
  19. IF result = 0 THEN
  20.     ABORT "Can't load Password from qdeck.ini"
  21. ENDIF
  22.  
  23. CommWaitFor    "ogin:"
  24.     CommSend username
  25.     CommSend "%r"
  26.  
  27. CommWaitFor    "assword:"
  28.     CommSend password
  29.     CommSend "%r"
  30.  
  31. DELAY 2
  32.  
  33. Print "PPP mode selected attempting to negotiate."
  34.  
  35. END
  36.  
  37.